home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / C / Applications / UIFlow 1.0.1 / UIFlow Source / VSet2.0 / Src / vseteg.f < prev    next >
Encoding:
Text File  |  1992-04-20  |  2.1 KB  |  76 lines  |  [TEXT/????]
  1.  
  2.       dimension x(100), y(100), n1(400), t(100)
  3.       integer f, vs, vg, n
  4.       external DFOPEN,DFCLOSE, VSFATCH, VSFDTCH, VSFSFLD
  5.       external VSFSNAM,VSFWRIT, VSFFDEF, VFATCH, VFDTCH, VFSNAM
  6.       external VFINSRT
  7.       integer DFOPEN
  8.       integer VSFATCH,VSFSFLD,VSFWRIT,VSF
  9.       integer VFATCH, VFINSRT
  10.       integer INTTYPE
  11.       parameter (INTTYPE=2)
  12.       integer FTYPE
  13.       parameter (FTYPE=3)
  14.       integer FINTRLACE
  15.       parameter (FINTRLACE=0)
  16.       integer FULLACC
  17.       parameter (FULLACC=7)     
  18.       imax = 10
  19.       dx = 0.1
  20.       dy = 0.2
  21.       do 10 i = 1, 10
  22.       do 10 j = 1, 10
  23.       i0j0 = i + (j-1) * imax
  24.       i0j01 = 4 * (i0j0-1) + 1
  25.       n1(i0j01) = i0j0
  26.       n1(i0j01+1) = i0j0 + 1
  27.       n1(i0j01+2) = i0j0 + imax
  28.       n1(i0j01+3) = i0j0 + imax + 1
  29.       x(i0j0) = (i-1) * dx
  30.       y(i0j0) = (j-1) * dy
  31.       t(i0j0) = 20 * i + 30 * j
  32.   10  continue
  33. C--------------------
  34.       f = DFOPEN ('vseteg.hdf',FULLACC, 0)
  35.       vg = VFATCH (f, -1, 'w')
  36.       call VFSNAM (vg, 'spv_fortran_group')
  37. C----------------------- x coord ------
  38.       vs = VSFATCH (f, -1, 'w')
  39.       call VSFSNAM (vs, 'xcoord')
  40.       n = VSFSFLD (vs, 'PX')
  41.       n = VSFWRIT (vs, x, 100, FINTRLACE)
  42.       n = VFINSRT (vg, vs)
  43.       call VSFDTCH (vs)
  44. C----------------------- y coord ------
  45.       vs = VSFATCH (f, -1, 'w')
  46.       call VSFSNAM (vs, 'ycoord')
  47.       n = VSFSFLD (vs, 'PY')
  48.       n = VSFWRIT (vs, y, 100, FINTRLACE)
  49.       n = VFINSRT (vg, vs)
  50.       call VSFDTCH (vs)
  51. C----------------------- con ------
  52.       vs = VSFATCH (f, -1, 'w')
  53.       call VSFSNAM (vs, 'con')
  54.       call VSFFDEF (vs, 'PLIST', INTTYPE, 4)
  55.       n = VSFSFLD (vs, 'PLIST')
  56.       n = VSFWRIT (vs, n1, 100, FINTRLACE)
  57.       n = VFINSRT (vg, vs)
  58.       call VSFDTCH (vs)
  59. C----------------------- temp ------
  60.       vs = VSFATCH (f, -1, 'w')
  61.       call VSFSNAM (vs, 'temp')
  62.       call VSFFDEF (vs, 'SCALAR', FTYPE, 1)
  63.       n = VSFSFLD (vs, 'SCALAR')
  64.       n = VSFWRIT (vs, t, 100, FINTRLACE)
  65.       n = VFINSRT (vg, vs)
  66.       call VSFDTCH (vs)
  67. C-----------------------
  68.       call VFDTCH (vg)
  69.       call DFCLOSE (f)
  70. C
  71.       stop
  72.       end
  73.       
  74.       
  75.   
  76.